perm filename TREFIX[E,ALS] blob sn#279481 filedate 1977-05-03 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TREFIX:	MOVE Z,[SIXBIT /001   /
C00003 ENDMK
CāŠ—;
TREFIX:	MOVE Z,[SIXBIT /001   /
	MOVEM Z,TRFILE+1
TREFI2:	OPEN 2,TRCHAN
	JRST TREFIZ
	MOVE Z,[CH2,ALS]
	MOVEM Z,TRFILE+3
	LOOKUP 2,TRFILE
	JRST TREFI3
	MOVE Z,TRFIILE+1
	ADD Z,(1,,0]
	MOVEM Z,TRFILE+1
	JRST TREFI2

TREFI3:	ENTER 2,TRFILE
	JRST TRFIZ
	OUTBUF 2,4
	SOS LPFLAG
	SOS LPFLAG
	POPJ PDP,

TRCHAN:	1		;Mode
	SIXBIT/DSK   /
	XWD LBTBUF
	
TRFILE:	SIXBIT/TREE/
	SIXBIT/001   /
	0
	SIXBIT/CH2ALS/